10 REM ********************************
20 REM *                              *
30 REM *    AUSGABE DER FAKULTAETEN   *
40 REM *   VON DISKETTE AUF DRUCKER   *
50 REM *    (W) BY BORIS BRANDHERM    *
60 REM *                              *
70 REM ********************************
80 NAME$="FK"
90 OPEN 1,8,2,NAME$+",S,R"
100 OPEN 2,4
110 GET #1,A$
120 C=ST
130 PRINT#2,A$;
140 IF C=0 THEN 110
150 CLOSE 1
160 PRINT#2,""
170 CLOSE 2